home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / debugger / ddd-1.000 / ddd-1 / ddd-1.4b / vsllib / DEMOS / flowplus < prev    next >
Encoding:
Text File  |  1995-05-01  |  1.1 KB  |  57 lines
  1. #!vsl
  2.  
  3. // $Id: flowplus,v 1.1.1.1 1995/05/01 15:48:49 zeller Exp $ 
  4. // Tester flowplus.vsl
  5.  
  6. // $Log: flowplus,v $
  7. # Revision 1.1.1.1  1995/05/01  15:48:49  zeller
  8. # DDD 0.9 distribution
  9. #
  10. // Revision 9.3  1993/06/25  12:03:02  zeller
  11. // Fix: Kommentare Log-Datei angepasst
  12. //
  13. // Revision 9.2  1993/05/22  20:22:30  zeller
  14. // %Q% added by apply-q-flag.sh 1.5
  15. //
  16. // Revision 9.1  1991/07/08  06:01:25  zeller
  17. // Installierte Version
  18. // 
  19. // Revision 8.1  1991/07/06  15:04:25  zeller
  20. // Installierte Version
  21. // 
  22. // Revision 1.3  1991/06/07  14:15:28  zeller
  23. // ID eingefuehrt
  24. // 
  25. // Revision 1.2  1991/06/07  14:14:46  zeller
  26. // Unbenutzte Variablen in "_" umbenannt
  27. // 
  28. // Revision 1.1  1991/05/25  12:39:32  zeller
  29. // Initial revision
  30. // 
  31.  
  32. #include <flowplus.vsl>
  33.  
  34. stat = statFlow("a := b");
  35.  
  36. b((box, _...)) = box;
  37.  
  38. goto1 = gotoFlow("1");
  39. goto2 = gotoFlow("2");
  40. goto3 = gotoFlow("3");
  41.  
  42. label1 = labelFlow("1");
  43. label2 = labelFlow("2");
  44. label3 = labelFlow("3");
  45.  
  46. ok(_...) -> outputFlow(fragFlow(
  47.   stat, 
  48.   goto1, 
  49.   label2,
  50.   stat, 
  51.   label1, 
  52.   stat,
  53.   goto3,
  54.   label3,
  55.   goto1
  56.   ));
  57.